home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Updates / HD-Installer / DungeonMasterHD / Install_SaveDisk < prev    next >
Text File  |  1999-11-08  |  2KB  |  98 lines
  1. ;****************************
  2.  
  3. (set #last-disk 1)          ;amount of disks
  4. (set #disk-size 901120)     ;size of each disk
  5.  
  6. ;****************************
  7. ;----------------------------
  8. ; Checks if given program is reachable via the path
  9. ; if not abort install
  10. ; IN:  #program - to check
  11. ; OUT: -
  12.  
  13. (procedure P_chkrun
  14.   (if
  15.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  16.     ("")
  17.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  18.   )
  19. )
  20.  
  21. ;----------------------------
  22. ; Create disk-Image using DIC
  23. ; IN:  #dest        - DestinationPath
  24. ;      #CI_diskname - DiskName
  25. ;      #CI_diskno   - DiskNumber
  26. ;      #CI_drive    - DriveToReadFrom
  27. ; OUT: -
  28.  
  29. (procedure P_image
  30.   (message ("\nInsert \"%s\" into drive %s !\n\n(make sure it's the right disk because it will not checked)" #CI_diskname #CI_drive))
  31.   (if
  32.     (= 0 
  33.       (run ("cd \"%s\"\nDIC %s FD=%ld LD=%ld SIZE=%ld >CON:///1000//CLOSE" #dest #CI_drive #CI_diskno #CI_diskno #disk-size))
  34.     )
  35.     ("")
  36.     (abort "\"DIC\" has failed to create a diskimage")
  37.   )
  38. )
  39.  
  40. (set #program "DIC")
  41. (P_chkrun)
  42.  
  43. ; in expert mode ask for source drive
  44. (if
  45.   (= @user-level 2)
  46.   (
  47.     (set #CI_drive
  48.       (askchoice
  49.     (prompt "Select source drive for diskimages")
  50.     (default 0)
  51.     (choices "DF0:" "DF1:" "RAD:" "Enter Device")
  52.     (help @askchoice-help)
  53.       )
  54.     )
  55.     (select #CI_drive
  56.       (set #CI_drive "DF0:")
  57.       (set #CI_drive "DF1:")
  58.       (set #CI_drive "RAD:")
  59.       (set #CI_drive
  60.         (askstring
  61.           (prompt "Select source drive for diskimages")
  62.           (default "DF0:")
  63.           (help @askstring-help)
  64.         )
  65.       )
  66.     )
  67.   )
  68.   (set #CI_drive "DF0:")
  69. )
  70.  
  71. (set @default-dest
  72.   (askdir
  73.     (prompt ("Where is your Dungeon Master installed ?"))
  74.     (help @askdir-help)
  75.     (default @default-dest)
  76.     (disk)
  77.   )
  78. )
  79. (set #dest (@default-dest))
  80.  
  81. ;----------------------------
  82.  
  83. (set #CI_diskno 1)
  84. (while
  85.   (<= #CI_diskno #last-disk)
  86.   (
  87.     (set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
  88.     (P_image)
  89.     (run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
  90.     (rename ("%s/disk.%ld" #dest #CI_diskno) ("%s/UNIT%ld" #dest #CI_diskno))
  91.     (set #CI_diskno (+ #CI_diskno 1))
  92.   )
  93. )
  94.  
  95. ;----------------------------
  96.  
  97. (exit)
  98.